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Here We Go Again! 

Exclusive! 

What happens when a Xerox copies a Big Board? 
Why you get a "Worm", of course! That's right! The 
Xerox 820 is just a Big Board in disguise. 

My informed sources say that last fall Xerox bought 
non-exclusive rights to manufacture a system based 
on the Big Board. Xerox re-laid out the board (4 layers) 
so that it would fit in the cabinet, they dedicated the 
SIO port B as a printer port, and they set up the disk 
interface (1771) to handle either 5 or 8 inch. Otherwise, 
it appears to be all Big Board, right down to the 2.5 
MHz clock. The system PIO does the same things on 
both systems, bit for bit, according to Xerox's docu- 
mentation. 

Xerox had 50,000 orders in hand the day they 
shipped the first 820, and they expect to recoup all 
their startup costs by the end of this calender year. 
What a market for software and hardware developed 
around the Big Board. I'll say more about the 820 as 
information comes in. (I'd give my eye teeth to see a 
schematic and service manual for the 820.) 

Picnic 

We had a Saturday noon picnic to celebrate our first 
issue. It turned out that the Saturday we picked con- 
flicted with every party /birthday/outing/etc. for three 
states around. But Sandy and I and those who came 
had six hours of very interesting and mellow conver- 
sation. 

The knowledge, resources, and excitement among 
the local group members are terrific. I only wish all of 
you could have joined us. 

The First Issue 

Despite the speed of the U.S. Snail, a heartening 
number of readers have actually received issue no. 1. 
The responses from these lucky folks have made the 
daily trip out to our mailbox most enjoyable. The com- 
ments have included; 'surprised, happy, delighted '. 

Though Micro C is a long way from being a success 
financially, feedback like this tells us that it is success- 
ful in other ways. We like doing it and we really appre- 
ciate your response. 

Sometimes a dream generates momentum of its 
own. This one has. 



There once was a 
Big Board so brisk. 

It could eat all the 
bits off a disk. 

It chewed up the bits, 
then spit out the pits, 

which made feeding it 
software a risk. 



Thanks. 



CL^fh 



David Thompson 
Editor & Publisher 



Letters 



Supporting A Language 



By David Thompson 



Dear Sir, 

July came and July went by, and 
my mailbox has completely rusted 
out due to all that drooling. 

Silly me! When I read 'Issue No. 1 
will hit the streets during July' I as- 
sumed it was July 1981! But now I 
realize you meant July 1982. I'd bet- 
ter get a stainless steel mailbox or 
maybe not bother to wait, because 
the magazine will never get here. 

Maybe it went the way of Mitt's 
Newsletter, the Digital Group 
Newsletter, and Processor Technol- 
ogy's "Access." 

I hope not. 
Joe Kish 

758 Yucca Ridge Lane 
San Marcos, CA 92069 

Editor's note: 

I called Joe; after all it was the least I could 
do for his mailbox. And besides, I think it's a 
great letter! (He did finally receive issue no. 
1.) 

Sandy and I made a desperate, last ditch 
effort to get all 500 first issues collated, 
bound, labeled, sorted and bundled in one af- 
ternoon so we could get the first issue in the 
mail on ]uly 31. We missed the 8 PM deadline 
at the post office by 15 minutes. 

So the magazine was mailed Monday 
morning, August 3rd. (So much for hitting 
the streets in July.) 

Someday maybe I'll write a book about 
starting a users group magazine. I could al- 
most write the book about the first issue, and 
Murphy would certainly be a leading figure. 
(For those of you who don't know Murphy, 
he is the one credited with the first voyage of 
the Titanic.) 

Quote from Murphy: 

If there is no way 

your plan can fail, 

you simply don't have 

all the information. 



Dear Editor, 

I bought a bare board version and 
built it up from scratch. I had to buy 
about $80.00 worth of parts beyond 
what I had around. I have it up and 
running CP/M and am currently 
working on packaging it in a ter- 
minal-type case with a Ball Brothers 
CRT. The unit is going to be used for 
text processing and formatting for a 
friend's photo typesetter. My other 
computer is an LSI-11 and I also use 

(continued next column) 



Throughout these early months of 
Micro Cornucopia, I have been look- 
ing at commercial and public ver- 
sions of various languages with the 
hope of finding a semiofficial lan- 
guage for this group. 

A common high level language 
would mean we could pass around 
source code in something other than 
assembler. But the language would 
need to be powerful enough for sub- 
stantial commercial applications and 
inexpensive enough that most of the 
people in the group could afford it. 

Letters continued 

my H19 with the DEC-20 at work. I 
think the Big Board is an excellent 
value and very useful. 

I agree that Frank Gentges' idea 
about the parallel ports is excellent. 
That would take care of most of the 
board's limitatons. I think your pub- 
lication has already been worth the 
price and I suspect that an active 
users group with a publication will 
enhance the usefulness of the hard- 
ware significantly. 
Doug Faunt 
POBoxlll42A 
Palo Alto CA 94306 



Dear David, 

CONGRATULATIONS!!! FAN- 
TASTIC!!! You really made it. It 
looks great and reads great. You are 
certainly to be congratulated for un- 
dertaking such a task that should be 
helpful to so many. 

I hate to mention that Momma 
and I are just back from five weeks 
vacation in the Smokey Mountains 
in Tennessee. I am about ready to 
get my feet on the ground again. I 
hope that I can get back on track to 
help keep the pipe full of articles for 
future issues. 
Don Retzlaf f 
6435 Northwood 
Dallas TX 75225 

Editor's note, 

What can I say? Thanks again Don, with- 
out you and John Jones and Andrew Beck, 
and the rest of you who are writing up things 
for future issues this wouldn't be possible. 
(As for the five whole weeks in the Smokey 
Mountains, that's just not fair.) 



Plus, it would need to produce fast 
and compact object code, encourage 
readable source code, and promote 
structured programming. (Whew!) 

I am looking seriously at three lan- 
guages: Forth, Pascal, and C. Of 
these three, C is presently leading. 
One reason is that all the versions I 
have seen have been upwardly com- 
patible with Bell Lab's C. 

Versions of C that I'm aware of: 

Small C (Public) 

Small C+ (Public) 

Tiny C ($100) 

CW/C ($75) 

BDSC ($145) 

Supersoft C ($200) 

Whitesmith's C ($600) 

(The prices are approximate.) 

Whitesmith's C is a full blown ver- 
sion of the language. In fact, sources 
tell me that it was created by three 
fellows who worked on C for Bell 
Labs. They left Bell in order to de- 
velop and market C for the business 
and scientific community. 

I've heard that BDSC is a compe- 
tent enough subset to be an option 
for someone writing commercial ap- 
plications. It has its own users group 
and publication. All this for $145, 
such a deal. (Lifeboat is offering dis- 
counts on quantity purchases of 
BDSC.) 

CW/C is an expanded version of 
Small C with lots of nice utilities, but 
I don't know if it is ready to do com- 
mercial work. However, it still looks 
like quite a bargain at $75. 

Tiny C is the only interpreter in 
the bunch. It also comes in compiler 
form for about $300. The only thing I 
have heard about Tiny C is that it has 
an excellent manual (and I heard 
that fourth or fifth hand). 

Supersoft' s C is new on the mar- 
ket. The ads say that they support 
'most' of version 7 Unix. If that in- 
cludes floating point and pointer 
arithmetic, then it would be a very 
credible piece of of software, assum- 
ing they have taken time to exorcise 
bugs. 

The standard text on C is: 
"The C Programming Language" 
by Kernighan and Ritchie 
Prentice-Hall ■ ■ ■ 
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Parallel 
Print Driver 

By John P. Jones 

5826 Southwest Ave. 
St. Louis, MO 63139 

This is a simple parallel printer 
driver that can be incorporated into 
any CP/M BIOS. 

On first entry, the program initial- 
izes PIO port B and the interrupt 
vector register. The program also 
modifies the BIOS jump table so that 
all subsequent calls for list output 
bypass the initialization routine. 

As each character is output to port 
B, a flag byte is set, indicating that 
the printer is busy. When the printer 
is again ready, the PIO does an inter- 
rupt. The sole purpose of the inter- 
rupt service routine is to reset the 
'printer busy' flag. The character 
output routine tests the flag byte and 
loops until it is reset. When the flag 
is reset, a character is sent and the 
flag is again set. 



ADS 



If you want millions to know what you're doing, 
buy a page in Byte. 

However, if you: 

• need help designing a commercial product 

• can provide help on a consulting basis 

• need to find a source of . . . 

• want to sell that new BB peripheral we've all been waiting for 

Well then, how about an ad in Micro C ? 



Space Ads 

People laugh when we tell 
them what our space rates are. 
They stop laughing when they 
realize that a 1/3 page ad costs 
about as much as a sack of groce- 
ries. 

If you are interested in one of 
our grocery ads or in something 
larger or smaller, call or write. 
We'll send a rate card and com- 
plete details. The advertising 
deadline is October 15 for issue 
no. 3, and December 15 for issue 
no. 4. 



Want Ads 

For a modest 20 cents per 
word, you could become famous 
on a budget. (Please include 
payment with ad.) Where else 
could you say 

WORLD'S GREATEST 

PROGRAMMER 

503-645-3253 

for only 80 cents? 

So write it down just the way 
you'd like to see it. Dnt abbrev 
the pr thng to deth. List the price 
if possible and any expected 
shipping delay. 



Write or call the editorial office for information. 
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Notes From Garland, Texas 



By David Thompson 



Clearing up the screen. 

The clear-to-end-of-screen com- 
mand is CONTROL Q, not CON- 
TROL W as indicated in the docu- 
mentation. 



Bringing up stubborn boards. 

A number of people have been 
contacting Jim and me about prob- 
lems they are having bringing up 
boards. One of the most common 
symptoms is a pattern of two charac- 
ters on the screen or a screenful of 
random garbage. Either way, it basi- 
cally means that the board probably 
didn't finish loading the PFM moni- 
tor in RAM so it could try to clear the 
screen. 

Jim is going to put together infor- 
mation about what they look for 
when they troubleshoot boards. 
Hopefully, I will have that in time for 
the next issue. 

Don't forget the 90 day guarantee 
which completely covers defective 
parts and boards. Plus, he has been 
doing out-of- warranty or pilot error 
repairs very reasonably. Most of the 
time these charges have been be- 
tween $25 and $50. The maximum so 
far has been $75 (the board had to be 
almost completely resoldered, 
among other things). That's pretty 
hard to beat. 



Two CP/Ms 

I have noticed that some software 
which runs on one Big Board system 
will not necessarily run on another. I 
also noticed that there are two differ- 
ent IDs when CP/M boots. 

I called Jim about this and he said 
that those folks who used the BIOS 
he sent out with the boards and who 
did their own incorporation into CP/ 
M have a version which origins the 
BIOS at EA00. All the folks who 
bought CP/M already modified for 
the Big Board have a BIOS starting at 
E800. The difference has led to some 
problems with software which de- 
pends on having BIOS in a certain 
place. 
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4 MHz Modification Version 2 

Jim said the ready-to-run version 
has BIOS shifted down 200H be- 
cause they thought they needed 
room to store 256 bytes (a double- 
density sector) in high memory. 
Then the data could be moved into 
low memory in 128 byte chunks and 
accessed. Jim isn't sure whether 
there is going to be a use for this 
space but he is concerned that we 
maintain consistancy. 

According to Jim, it's easy to make 
the EAOO BIOS into an E800 BIOS. 

Original— .RES . (MSIZE-20)*1024 
New— .RES.((MSIZE-20)*1024)-200 

Now reassemble the mess and you 
too can ORG at E800. 

By the way, a pretty reliable way 
to tell which version you have is to 
look at the ID that's displayed when 
you boot CP/M. If it just says "60k 
CP/M version 2.2" then you proba- 
bly ORG at EAOO. If the prompt in- 
cludes the words "BIG BOARD" 
then you already ORG at E800. 

The separate BIOS (and monitor 
etc.) disk Jim is shipping with orders 
now ORGs at E800. If you would like 
the latest version rather than reas- 
sembling BIOS with the modifica- 
tion above, send Jim a disk and $3.00 
for shipping. 



TO 



• CAS (3) 

• MUXC (3) 






U80 
388o 



4 MHz (Again). 

This is an updated version of the 4 
MHz mod printed in issue no. 1. 
This version reportedly does not re- 
quire special ram. Jim says he has 
300ns 4116 working consistently us- 
ing this mod. The only difference be- 
tween this one and the previous one 
is that the CAS and MUXC lines are 
each moved left one pin on U76 
(shift register) so that they change 
states 50ns earlier. This change 
means that the system meets the 
precharge requirements for the 
slower RAM. 

4 MHz Mod Version 2 

1. Cut the trace (bottom of the 
board) to U76 pin 4. 

2. Connect the cut trace (MUXC) to 
U76pin3. 

3. Cut the trace (bottom of the 
board) to U76 pin 5. 

4. Connect the cut trace (CAS) to 
U76pin4. 

5. Remove U96. 

6. Connect U97 pin 4 to U96 pin 4. 

7. Don't replace U96. 



(continued next page) 
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Disk Drive 
Motor Control 

By David Thompson 



CP/M patch for serial printer port. 

This CP/M modification redirects 
the list device output to serial port B. 
The default data rate is 300 baud. 
This patch does not force the Big 
Board to poll any of the handshake 
lines on port B. Thus, it has no way 
of knowing if the printer buffer is 
full. (May or may not be a problem.) 
This modification is for those who 
ORG at E800. 

Enter the characters inside the 
quotation marks. <CR> = carriage 
return. 

The patch: 

1. Power up the Big Board (BB). 

2. Place a CP/M disk with SYSGEN 
on it, in drive A. 

3. Boot CP/M. 

4. Enter "SYSGEN" "<CR>" 
Displays: SYSGEN VER. 2.0 
Displays: SOURCE DRIVE 

NAME... 

5. Enter "A" 

Displays: SOURCE ON A, 
THEN TYPE RETURN 

6. Enter "<CR>" 
Displays: FUNCTION 

COMPLETE . . . 

7. Hit the BB RESET switch <CR> 

NOTE: You now have an image of Boot, 
CP/M, and Bios in RAM starting at 
0900H. 

8. Remove the source disk from 
drive A. 

9. Enter "M22C7" "<CR>" 
Displays: 22C7 00 

10. Enter "79" 

11. Enter "C3" 

12. Enter "18" 

13. Enter "F0" 

14. Hit spacebar to return to PFM. 

15. Enter "M1F90" "<CR>" 

16. Enter "47" 

17. Enter "EB" 

18. Hit spacebar to return to PFM. 

19. Place blank disk in drive A. 

20. Enter "G100" 

Displays: SYSGEN VER 2.0 

21. Enter "<CR>" 

Displays: DESTINATION 
DRIVE . . . 

22. Enter "A" 

Displays: DESTINATION 
ON A . . . 



23. Enter "<CR>" 
Displays: FUNCTION 

COMPLETE... 

24. Enter "<CR>" 

The disk now contains a CP/M 
system that supports CONTROL P 
(and PIP LST:=) for listings. As 
mentioned above, the output is on 
serial port B and is 300 baud. 

Editor's note: 

To change the baud rate, create 
F.COM as follows: 

1. Enter "DDT" "<CR>" 

2. Enter "A100" "<CR>" 

3. Enter "MVI A,XX" "<CR>" 

4. Enter "OUT 0C" "<CR>" 

5. Enter "JMP 0" "<CR>" 

6. Enter "<CR>" 

7. Enter "GOO" "<CR>" 

8. Enter "SAVE 1 F.COM" 
"<CR>" 

This routine sends a single byte 
(XX) to the channel B baud rate gen- 
erator. I am working at 9600 baud so 
I replace XX with 0E. See the Big 
Board Theory of Operation for other 
baud rates. 

Once you have completed the 
baud rate program, simply enter "F" 
"<CR>" from the CP/M prompt to 
set the baud rate. 
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No UPS to a PO Box? 

Jim Tanner lists his mailing ad- 
dress as a PO Box but he also has a 
street address that works for both 
the post office and United Parcel 
Service. (The ZIP is different.) 

Jim Tanner 

Digital Research Computers 

2702 Industrial Lane 

Suite J2 

Garland, Texas 75041 

Phone 214-271-3538 




MOV 



Disk AC Control Circuit. 

If you're tired of listening to your 
disk drives grind on hour after hour, 
here's relief. 

The board must have the timer op- 
tion installed and you must jumper 
pin 3 to pin 4 and pin 7 to pin 8 on 
JB2. This supplies the one second in- 
terrupt to the Z80. If the Z80 counts 
all the way to 30 after the most recent 
disk access then it sends a command 
to the system PIO to drive the output 
ofU112pin21ow. 

Terminal 7 on the Big Board power 
connector is tied to U112 pin 2. This 
terminal is high (about 4V) when the 
system is doing a disk access and 
goes low if there hasn't been an ac- 
cess for 30 seconds. 

Simply connect the input of an op- 
tically isolated solid state relay be- 
tween terminal 7 and ground. Then 
connect the output in series with the 
AC to the disk drive motors. (But do 
not connect in series with the drives' 
DC supply.) 

I tried mechanical relays at first, 
but even the type made to be driven 
by TIL have problems. Whenever 
you use mechanical switches to start 
and stop motors you get interesting 
transients on the AC line. Interest- 
ing transients occasionally cause 
CPUs to go off picking daisies. 

I am now using an ITT solid state 
relay P6-3DCC-120R5. It has a (P6) 
package, a 3VDC (3D) input, a 
120VAC output with random 
switching point (120R), and it han- 
dles up to (5) amps. It is also small, 
quiet, and hasn't yet sent the system 
packing. 
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Jumpering The Wild Shugart 

By David Thompson 



Shugart set a new standard for ob- 
scurity when they came out with 
their SA 801 user's manual. 

It's not that they don't tell you 
how to jumper their drives, the only 
problem is figuring out what they 
told you. Once you figure it out, 
don't go back and look at the man- 
ual, you'll just get confused again. 

So on that note, here's what I fig- 
ured out. 

For drive A, jumper only the fol- 
lowing: DC, C, DS1 (Drive Select 1), 
T2, T3, T4, T5, T6, HL, A, B, Tl, 800, 
Y. 

For drive B, change DS1 to DS2. 
For drive C, change DS1 to DS3, and 
soon. 

For the last 9 months or so, Shu- 
gart has been shipping drives with a 
new circuit board. The new board is 
completely interchangeable with the 
old one, but the new one does not 
use the -5/-15V pin on the DC sup- 
ply jack (J5). The pin is there but is 
not connected to anything because 
the new board does not need -5V. 

One way to tell whether you have 
a new or old style drive is to check 
the bottom left hand corner on the 
circuit board. The old drive has a -5V 
regulator there. On the new one, 
that corner is pretty empty. Also, the 
resistance from the -5V pin to 
ground is infinite on the new 
boards. 

I had one of the new boards but 
the old documentation so I spent a 
couple of 'interesting' evenings try- 
ing to make sure the -12V I was sup- 
plying would be properly turned in- 



to -5V on the board. (Oh well, if 
everyones' documentation were 
perfect there probably wouldn't be 
so much need for user groups.) 

Note: The following information is 
from Bill Klevesahl, Shugart's product 
manager for the SA 800 series. 

Test points for both boards. 

1,2 Amplified read signal 
5,6,7 Ground 

10 -Index 

11 +Head Load 

12 -Index and Sector Pulses 
16 +Read Data 

25 + Write Protect 

26 +Detect Track 

27 +Step Pulse 

Test points on the old board only. 

3,4 Differential Read Signal (this 

signal is now hidden inside the 

new LSI read chip). 

21,24 -Data Separator Timing 

(there is no longer a pot to adjust 

this). 

Test points on the new board only. 

8 +Data Window (for checking 
FM data separation). 

Optional features on the new board. 

•Add-trace option TS enables true 
FM data separation, maintaining 
synchronization during address 
marks. 

• Add-trace option NFO prevents 
the head from being forced out past 
track 0. 



BUG 




The formatting program 
listed in issue i contains 
a bug- If the program has 
a problem accessing a disk 
in drive B, it re-formats 
the disk in the default 
drive (A) . 

Issue 3 will include a 
revised format program. 



Coming 
Up 



Articles you'll be seeing in the 
future. 

• Reverse video cursor 

• 5 inch disk interface 

• Real time clock routine 

• Converting a TV into a real 
video monitor 

• More on the PFM monitor 

• Review of 3 assembly language 
texts 

• Bios modifications 

Articles we'd love to see. 

• Trials and tribulations of bring- 
ing up a Big Board 

• How you've improved the 
PFM monitor 

• Hard disk interface 

• Filling out the second bank 
with system RAM 

• DMA interface 

• Double density disk interface 

• A graphics display 

• A speech generator 

• A simple ROM burner 

• Interfacing with particular 
printers etc. 

• An in-depth series on CP/M 

• Reviews of FIG Forth and Forth 
79 

•Reviews of BDSC, White- 
smith's C, CW/C and Super- 
soft's C 

• Computer consulting using a 
Big Board 

• Reviews on peripherals, key- 
board, video monitor, power 
supply, cabinet, disks, etc. 

•Other software reviews. Even 
if you are just borrowing a copy 
to evaluate, please let us know 
how you like it. 

• Book reviews 



If you are 
immersed in 
any of these 
projects, 
please share 
your 

experience 
with all of us. 
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Direct Input Routine 



By Andrew P. Beck 



Assembly Listing 



FSOO 


E5 SUBR PUSH HL ; 


F801 


CD06F0 


CALL KBDST ; 


F804 


B7 


OR A - ; 


F805 


CA0EF8 


JP Z ISDATA ; 


F808 


El 


POP HL ; 


F809 


3C 


INC A ; 


FBOA 


77 


LD (HL),A ; 


F80B 


23 


INC HL ; 


FSOC 


77 


LD (HL),A 


F80D 


C9 


RET ; 


F80E 


CD09F0 ISDATA CALL KBDIN ; 


F811 


El 


POP HL ; 


F812 


77 


LD (HL),A ; 


F813 


^>T 


INC HL 


F814 


3600 


LD (HL),0 ; 


F816 


C9 


RET ; 



AB Computer Products 

PO Box 571 

Jackson, NJ 08527 



SAVE ADDRESS OF HL'/. 

GET KBD STATUS 

IF A=0 DATA AVAILABLE 

JP TO DATA SAVE ROUTINE 

GET ADDRESS BACK 

A=FF IS NO DATA, MAKE IT 

STORE IN HL"/. 

DO BOTH BYTES 

RETURN WITH HL7. = 
GET INPUT CHAR INTO A 
GET ADDRESS OF HL7. BACK 
STORE DATA, LOW ORDER 

HIGH ORDER = O 
RETURN TO BASIC 



— Poke the above program into F800+ — 

500 SUBR = &HF800 

510 DATA &HE5,&HCD,&H06,&HF0,&HB7,&HCA,&H0E,&HFB 

520 DATA 8<HE1 , 8<H3C, 8<H77, &H23, &H77, 8<HC9, ?<HCD, &H09. &HFO 

530 DATA 8<HE 1 , &H77 , 8<H23 , 8<H36 , &H00 , &HC9 

540 FOR 1=0 TO 22 

550 READ INST 

560 POKE SUBR+I,INST 

570 NEXT 

— Demonstration routine — 

580 HL7.=0 

590 CALL SUBR (HL"/.) 
600 IF HL7.=0 GOTO 590 
610 IF HL"/.=3 THEN STOP 
620 PRINT CHR*(HL'/.>; 
630 GOTO 590 




More 

Power Supplies 

By David Thompson 



I just received a catalog from ACDC 
Electronics and they list a power 
supply that should power the Big 
Board and a couple of drives. (Like 
the Power One, you still have to fi- 
nagle +12V but that isn't hard, see 
Issue no. 1.) 
Model ETV801 provides: 

+5V at 9 amps 

-12V at 0.8 amps 

+24V at 4.5 amps peak 
Price is $132 (list, single) 

They don't mention how they 
handle over-current protection, but 
they do indicate that they only have 
over- voltage protection on the +5V 
line unless you specify the -1 option. 
They don't say how much extra you 
pay for the option. 

ACDC Electronics 

401 Jones Rd 

Oceanside, CA 92054 

Power/Mate also has an open 
frame linear with the same specifica- 
tions as the ACDC model above, but 
the PowerMate model ED-132AV 
lists for $120 (single). 

Power/Mate 

514 S River St 

Hackensack, NJ 07601 



This routine makes it possible to do 
direct input with Microsoft basic. 
First, a machine language subrou- 
tine is poked into an unused area of 
the system monitor. 

This subroutine calls the monitor 
subroutine and the monitor checks 
to see if an input character is availa- 
ble. If none is available, the HL% is 
set to zero. If a character is available, 
it is stored in HL% before a return is 
executed. 

In the demonstration program, a 
returned character is echoed on the 
console. If the character is " C, the 
demonstration stops. 



Something New 



DataCast 
345 Swett Road 
Woodside,CA 94062 

I just received issue no. 1 of Data- 
Cast and I'm impressed, very im- 
pressed. This is a bimonthly maga- 
zine for 'major micro systems and 
telecommunications.' 'Major micro 
systems' means CP/M in a business 
or OEM environment and 'telecom- 
munications' means networking. 

Jim Warren, guiding force behind 
the West Coast Computer Faire, is 
behind this magazine and I suspect 
it will be around for a long while. 
Subscriptions are $18 per year (6 is- 
sues). 

He is starting with a staff of 19 (if 
you include the mascot, Sir Lick-A- 
Lot) and it shows. The first issue is 



64 pages and about 60 pages of that 
is copy. 

Some first issue articles: 

• What is Telidon and Why is AT&T 
Adopting It? 

• Overview of Home Information 
Services 

• A Seminar for Independent CP/M 
Software Vendors 

• Software Documentation Protocols 
•An Index to CP/M Software and 

Vendors 

Other Interesting Periodicals 

Dr. Dobb's Journal 

PO Box E 

Menlo Park, CA 94025 

Lifelines 

1651 Third Ave 

New York, NY 10028 

Please let us know about your fa- 
vorite magazines. 
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Program Storage Above PFM 



By Don Retzlaff 



There are numerous times when 
you want to write a small assembly 
language program to use as a printer 
driver or other routine. These small 
utilities need to reside in high mem- 
ory so they can operate at the same 
time as routines which reside in the 
normal transient program area 
(starting at 0100H). 

Since programs are loaded start- 
ing at 0100H, these utilities must 
load themselves into high memory. 

There is a considerable amount of 
memory available above PFM that is 
not dedicated to any other use. PFM 
version 3.3 uses upper memory 
starting at F000H through F7E6H. 
The RAM area FFOOH through 
FFC8H is used for data storage. This 
leaves the memory from F7E7H 
through FEFFH and FFC9H through 
FFFFH available for your use. Not all 
of this space is really available since 
future releases of PFM could use 
some of this space. 

I recommend that you limit your 
programs to the following areas: 
(FAOOH through FEFFH and FFEOH 
through FFFFH). 

Moving the program up 

In order for your routine to start 
out as a normal COM file but wind 
up in upper memory, it has to do a 
quick shuffle. 

1 . When the COM file is executed it 
is loaded into memory starting at 
0100H. 

2. Execution starts at 0100H. 

3 . The first few statements (starting 
at 0100H) must copy the routine 
into upper memory. 

4. An initialization routine may 
then be executed. 

5 . Control is then transferred to the 
routine or back to PFM. 

In order to accomplish all of the 
above it is necessary to do the fol- 
lowing: 

1. Write your assembly language 
routine as follows: 

a. The origin is set at the desired 
point where your routine is to 
reside. 

b. Your program . must start 
with a short move routine. 



6435 Northwood 
Dallas, TX 75225 



c. An initialize routine usually 
follows that patches (hooks) 
your routine into the monitor 
or PFM. 

d. Your routine follows. 

e. The last statement defines 
the length of the program. 

2. Assemble your program. 

3 . Execute DDT and load your HEX 
file into memory. Typically this 
is done as follows: 

>A.DDTNAME.HEX 

This will load your program into 
memory at the desired location (ex- 
ample EAOOH). The program will 
not execute. 

DDT will print out starting and 
ending addresses. 

NEXTPC/n 
FAxx FAOO 

4. Using DDT, move the program 
from upper memory to 0100H. 

MFA00,FAxx,0100 

5. Transfer control back to PFM by 
typing: 

GO 

6. Save the program using the 
SAVE command. 

SAVE1NAME.COM 
You must save the program in 256 
byte blocks. Using 'V will save 256 
bytes, '2' would save 512 bytes, etc. 

7. The program is now ready for 
execution as a COM file. 

The above procedure may seem 
long and rather involved but after 
you have done it a few times you will 
find it very quick and simple. 
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F39B CB3F 
F39D 3C 
F39E C9 



F39F 
F3A2 

F3A4 
F3A6 
F3A7 
F3A8 
F3AA 
F3AB 
F3AD 
F3AE 
F3AF 
F3B2 
F3B4 
F3B5 
F3B8 
F3BA 
F3BB 
F3BC 



F3BD 
F3BF 
F3C0 
F3C2 
F3C3 
F3C4 
F3C6 
F3C8 
F3C9 
F3CB 
F3CC 



F3CD 
F3CE 
F3D1 
F3D2 
F3D5 



F3DB 
F3D9 
F3DA 
F3DB 
F3DC 
F3DD 
F3E0 
F3E1 



210000 
180B 

0604 

29 

D8 

10FC 

5F 

1600 

19 

D8 

FD7E00 

FD23 

4F 

CDBDF3 

30EA 

79 

B7 

C9 



D630 

D8 

FEOA 

3F 

DO 

D607 

FEOA 

DB 

FE10 

3F 

C9 



7C 

CDD8F3 

7D 

CDDBF3 

C302F4 



F5 

IF 

IF 

IF 

IF 

CDE1F3 

Fl 

E60F 



0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0769 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
079B 
0799 
0800 
0801 
0B02 
0803 
0804 
0805 
0806 
0B07 
0808 
0809 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
0B17 
0818 
0819 
0B20 
0821 



SRL 
INC 
RET 



;A=COUNT OF NUMBERS ENTERED 



;GETHEX CONVERTS ASCII TO BINARY AND DOES 
;HIGH LIMIT CHECKS TO LESS THAN 17 BITS. 
; CARRY SET ON ILLEGAL CONVERSION RESULT 
; TERMINATING CHARACTER RETURNS IN A. 
;HL RETURNS WITH 16 BIT BINARY INTEGER 



GETHEX: LD 
JR 



GNUM1: 
GNUM2: 



GNUM3: 



LD 

ADD 

RET 

DJNZ 

LD 

LD 

ADD 

RET 

LD 

INC 

LD 

CALL 

JR 

LD 

OR 

RET 



ASCHEX: SUB 
RET 
CP 
CCF 
RET 
SUB 
CP 
RET 
CP 
CCF 
RET 



PUT4HS: LD 

CALL 
LD 

PUT2HS: CALL 
JP 

; 

PUT2HX: PUSH 
RRA 
RRA 
RRA 
RRA 
CALL 
POP 

PUTNIB: AND 



HL,0 
GNUM3-* 

B,4 

HL,HL 

C 

GNUM2-* 

E,A 

D,0 

HL,DE 

C 

A, <IY+0) 

IY 

C,A 

ASCHEX 

NCGNUM1 

A,C 

A 



'O' 

C 

10 

NC 

7 

10 

C 
16 



A,H 

PUT2HX 

A,L 

PUT2HX 

SPACE 



; MULTIPLY RESULT BY 16 

; RETURN IF IT OVERFLOWS 16 BITS 

; APPEND NEW LOW ORDER DIGIT 
;AND GET RESULT BACK INTO DE 

; RETURN IF OVERFLOW 

5GET A CHAR FROM LINE INPUT 

; BUFFER 3 IY AND BUMP IY 

; CONVERT ASCII TO NUMERIC 



-* 



AF 



PUTNIB 

AF 

00001 11 IB 
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F3F1 C9 



F3F2 
F3F3 
F3F4 
F3F6 
F3F7 
F3FA 



F407 
F40A 
F40B 
F40E 
F40F 
F411 
F412 
F414 



F415 
F41B 
F41B 
F41D 
F420 
F422 
F424 
F427 

F429 
F42C 
F42F 
F430 



7E 

23 

FE04 

CB 

CD15F4 

18F6 



F3FC CDECF3 

F3FF 0D0A04 

F402 3E20 

F404 C315F4 



CD09F0 

F5 

CDOCFO 

Fl 

FE5B 

D8 

D620 

C9 



CDOCFO 

CD06F0 

280F 

CD09F0 

FEOD 

2805 

CD09F0 

1803 

3284FF 
3AB4FF 
B7 
C9 



0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0B52 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0862 

0B63 

0864 

0865 

0866 

0867 

0B68 

0869 

0870 

0871 

0B72 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

OBBO 

08B1 

0882 

08B3 

0884 

0BB5 

0886 

08B7' 

OBBB 

0BB9 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 



RET 



PMSG: 



LD 


A, (HL) 


INC 


HL 


CP 


EOT 


RET 


Z 


CALL 


OUTPUT 


JR 


PMSG-* 



CRLFS OUTPUTS A RETURN-LINEFEED-SPACE 
TO THE CONSOLE DEVICE 



CRLFS: CALL 
DEFB 

SPACE: LD 
JP 



PNEXT 
CR,LF,EOT 
A,' ' 
OUTPUT 



ECHO INPUTS ONE CHARACTER FROM THE CONSOLE 
DEVICE, PRINTS IT ON THE CONSOLE OUTPUT AND 
THEN RETURNS IT IN REGISTER A WITH BIT 7 RESET 

OUTPUT PRINTS THE CHARACTER IN REGISTER A ON 
THE CONSOLE OUTPUT DEVICE AND THEN DOES A CHECK 
FOR CONSOLE INPUT TO FREEZE OR ABORT OUTPUT. 



ECHO: 



CALL 


CONIN 


PUSH 


AF 


CALL 


CONOUT 


POP 


AF 


CP 


'Z'+l 


RET 


C 


SUB 


32 


RET 





OUTPUT: 



0UTP1: 
0UTP2: 



CALL 

CALL 

JR 

CALL 

CP 

JR 

CALL 

JR 

LD 
LD 
OR 
RET 



CONOUT 

CONST 

Z,0UTP2-* 

CONIN 

CR 

Z,0UTP1-* 

CONIN 

0UTP2-* 



; INPUT A CHARACTER AND ECHO IT 
; CONVERT UPPER CASE TO LOWER 

;SEE IF CONSOLE INPUT PENDING 

;SEE IF <CR> WAS TYPED 

5 WAIT FOR ANOTHER INPUT CHAR 
: THEN RET TO CALLING ROUTINE 



<ESCFLG),A ;SET ESC FLAG TO NON-ZERO VALUE 
A, <ESCFLG) 

A ; RETURN CURRENT STATUS OF ESC 

; FLAG TO CALLING ROUTINE 



INCLUDE INTSRV.ASM 



(continued next page) 
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PFM Monitor Listing (continued) 



F431 3A30FF 

F434 B7 

F435 CB 

F436 3EFF 

F438 C9 



F439 
F43C 
F43E 
F43F 
F442 
F443 



F444 
F447 
F44B 
F449 
F44B 
F44C 

F44D 
F44F 
F451 
F453 
F455 
F457 
F459 
F45B 
F45C 
F45F 
F460 
F461 
F463 
F464 
F465 
F46B 
F46B 
F46C 



CD31F4 

2BFB 

E5 

CD6DF4 

El 

C9 



2133FF 

BE 

23 

2002 

34 

C9 

CB46 

2B0A 

FE40 

3806 

FE7F 

3002 

EE20 

4F 

2130FF 

7E 

3C 

FE10 

DO 

77 

2131FF 

CD74F4 

71 

C9 



089B 
0899 
0900 
0901 
0902 
0903 
0904 
0905 
0906 
0907 
0908 
0909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
09 IB 
0919 
0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
094B 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0956 



;* * 

!* INTERRUPT SERVICE ROUTINES FOR KEYBOARD * 

;* INPUT AND REAL-TIME CLOCK FUNCTIONS * 

; * 3-Aug-B0 * 

;* * 

J******************************************************** 



KBDST: 



KBDIN: 



STASH: 



STASH2: 



STASH3: 



LD 

OR 

RET 

LD 

RET 



CALL 

JR 

PUSH 

CALL 

POP 

RET 



LD 

CP 

INC 

JR 

INC 

RET 

BIT 

JR 

CP 

JR 

CP 

JR 

XOR 

LD 

LD 

LD 

INC 

CP 

RET 

LD 

LD 

CALL 

LD 

RET 



A, (FIFCNT) ;GET INPUT FIFO BYTECOUNT 
A ;TEST IF EQUAL ZERO 

Z :EXIT WITH A=0 IF QUEUE EMPTY 

A, 255 

;ELSE A=255 INDICATES DATA RDY 



KBDST 

Z.KBDIN-* ,• LOOP UNTIL KEYBOARD INPUT RDY 

HL 

REMOVE ;GET CHARACTER FROM INPUT QUEUE 

HL 



HL,LOCK ; POINT TO SHIFT LOCK VARIABLES 
(HL) ;TEST IF A=SHIFT LOCK CHARACTER 
HL ;THEN POINT TO LOCK FLAG 

NZ,STASH2-*;JUMP IF NOT SHIFT CHARACTER 
(HL) ;ELSE COMPLIMENT THE SHIFT LOCK 
;AND EXIT NOW 



O, (HL) 
Z.STASH3-* 
40H 

CSTASH3-* 
7FH 

NCSTASH3-* 
00100000B 
C,A 

HL, FIFCNT 
A, (HL) 
A 
16 
NC 

(HL),A 
HL,FIFIN 
INDEX 
(HL),C 



TEST THE SHIFT LOCK FLAG 
iJUMP IF SHIFT LOCK NOT SET 
[ELSE CHECK FOR SHIFTABLE CHAR 
lAND JUMP IF NOT = OR GREATER 

THAN '«>' AND LESS THAN RUBOUT 

5 ELSE TOGGLE BIT 5 OF THE CHAR 
;BUMP INPUT FIFO CHAR COUNT 



EXIT NOW IF FIFO IS FULL 
[ELSE INCREMENT FIFO COUNT 
POINT HL TO FIFO INPUT OFFSET 

STORE CHARACTER IN FIFO 3 HL 



F4C1 
F4C4 
F4C5 
F4C6 
F4C7 
F4C8 
F4CC 
F4CD 



F4CF 
F4D3 
F4D6 
F4D7 
F4DA 
F4DC 
F4DF 
F4E0 
F4E4 
F4E5 



F4E8 
F4EA 
F4EC 
F4ED 
F4EF 



F4F0 
F4F3 
R4F5 
F4F7 
F4F9 
F4FB 
F4FD 



F4FE 
F500 
F502 
F505 
F50B 
F509 

F50B 
F50C 
P50D 
F510 
F511 
F512 
F514 



F515 
F516 



CDE7F4 

Fl 

CI - 

Dl 

El 

ED7B35FF 

FB 

ED4D 



ED7335FF 

3157FF 

F5 

CDF5F4 

3E07 

CD15F5 

Fl 

ED7B35FF 

FB 

ED4D 



F4E7 E9 



DB07 

E601 

CB 

3EFF 

C9 



CDE8F4 

2SFB 

3E30 

D307 

DB05 

E67F 

C9 



FE20 

3013 

CD15F5 

3A79FF 

3C 

1806 

F5 

AF 

CD15F5 

Fl 

3D 

20F7 

C9 



F5 
DB07 



1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 



DSPTCH: 



CALL 

POP 

POP 

POP 

POP 

LD 

EI 

RETI 



CALLHL 
"AF 
BC 
DE 
HL 
SP, (SPSAVE) 



;CALL SUBROUTINE ADDRESSED BY H 



; RE-ENABLE INTERRUPTS & RETURN 



; — RX ERROR INTERRUPT SERVICE ROUTINE FOR SIO — 



; ARRIVE HERE IF RECEIVE INTERRUPT FROM FRAMING, OVERRUN 
;AND PARITY ERRORS.' (PARITY CAN BE DISABLED) 



SIOERR: LD 
LD 
PUSH 
CALL 
LD 
CALL 
POP 
LD 
EI 
RETI 



CALLHL: JP 



(SPSAVE),SP ;SAVE USER STACK POINTER AND 

SP,TMPSTK+32 ; SWITCH TO LOCAL STACK 

AF 

SI0IN2 ; CLEAR BAD CHARACTER FROM SIO 

A,'G'-64 

SIOXMT ; OUTPUT A CTL-G AS A WARNING 

AF 

SP, (SPSAVE) 



(HL) 



; POLLED MODE I/O ROUTINES FOR SIO CHANEL B 



SIOST: 



IN 

AND 

RET 

LD 

RET 



SIOIN: 



CALL 
JR 
SI0IN2: LD 
OUT 
IN 
AND 
RET 



SIOOUT: 



PAD: 



PAD1: 



SIOXMT: 
SI0X1: 



CP 

JR . 

CALL 

LD 

INC 

JR 

PUSH 

XOR 

CALL 

POP 

DEC 

JR 

RET 



PUSH 
IN 



A, (SIOCPB) ;GET SIO STATUS REGISTER 
0000000 IB 

Z ;ACC=0 IF NO DATA AVAILABLE 

A, 255 



SIOST ;TEST CONSOLE STATUS 
Z.SIOIN-* ;LOOP UNTIL DATA IS RECEIVED 
A.OOllOOOOB ; RESET STATUS BITS IN SIO FO 
(SIOCPB), A ; PARITY/OVERRUN/FRAMING ERRORS, 
A, (SIODPB) 5 THEN GET THE INPUT CHARACTER 
011U111B 



' ' ;TEST FOR CONTROL CHARACTERS 
NC, SIOXMT-*; JUMP IF PRINTABLE CHARACTER 

SIOXMT ;ELSE SEND CONTROL CHARACTER 

A, (NULLS) ;AND THEN SEND NULLS AS PADDING 

A ;GET NULL PAD COUNT AND FIX SO 

PAD1-* ;THAT COUNT=0 SENDS NO NULLS 

AF 

A 

SIOXMT 5 OUTPUT A NULL TO THE SIO 

AF 

A 

NZ,PAD-* ;LOOP SENDING NULLS TO SIO 



AF 

A, (SIOCPB) 



F46D 
F470 
F471 
F474 
F475 
F476 
F478 
F479 
F47C 
F47D 
F47E 
F47F 



F480 
F483 
F484 
F4B5 
F4B7 
F4B9 
F4BB 



F4BC 
F490 
F493 
F494 
F495 
F496 
F497 
F499 
F49A 
F49D 



F49F 
F4A3 
F4A6 
F4A7 
F4A8 
F4A9 
F4AA 
F4AD 



F4AF 
F4B3 
F4B6 
F4B7 
F4BB 
F4B9 
F4BA 
F4BC 
F4BE 



2130FF 

35 

2132FF 

7E 

3C 

E60F 

77 

2120FF 

85 

6F 

7E 

C9 



216CFF 

35 

CO 

DB1C 

F644 

D31C 

C9 



ED7335FF 

3157FF 

E5 

D5 

C5 

F5 

DB1E 

2F 

2A59FF 

1822 



ED7335FF 

3157FF 

E5 

D5 

C5 

F5 

2A57FF 

1812 



ED7335FF 

3157FF 

E5 

D5 

C5 

F5 

DB05 

E67F 

2A5BFF 



0957 
0958 
0959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
09B3 
09B4 
0985 
09B6 
09B7 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 



INDEX: 



REMOVE: LD 
DEC 
LD 
LD 
INC 
AND 
LD 
LD 
ADD 
LD 
LD 
RET 



HL,FIFCNT 
(HL) 

HL.FIFOUT 
A, (HL) 
A 

00001 11 IB 
<HL),A 
HL,FIFO 
A,L 
L,A 
A, <HL) 



i POINT HL TO FIFO OUTPUT OFFSET 



; INCREMENT FIFO POINTER 
; MODULO 16 AND REPLACE 

: INDEX INTO FIFO BY OFFSET IN A 



SOFTWARE DISK MOTOR TURN-OFF TIMER ROUTINE 

; DECREMENT DISK TURN-OFF TIMER 
;EXIT IF NOT TIMED OUT YET 



DSKTMR: LD 
DEC 
RET 
IN 
OR 
OUT 
RET 



HL, MOTOR 
(HL) 
NZ 

A, (BITDAT) 

01000100B j DISABLE ALL DRIVE SELECTS AND 
(BITDAT), A ; TURN OFF THE SPINDLE MOTORS 



— INTERRUPT SERVICE ROUTINE FOR PARALLEL KEYBOARD — 

KEYSRV: LD (SPSAVE),SP 5 SAVE USR STACK POINT AND 

LD SP,TMPSTK+32; SWITCH TO LOCAL STACK 

PUSH HL 

PUSH DE 

PUSH BC 

PUSH AF ;SAVE MACHINE STATE 

IN A, (KBDDAT) ;READ KEYBOARD INPUT PORT 
CPL 

LD HL, <PINVEC);GET KBD INTERRUPT RTN VECTOR 

JR DSPTCH-* jAND JUMP TO DISPATCH POINT 



— INTERRUPT SERVICE ROUTINE FOR ONE SECOND TIMER — 

TIMER: LD <SPSAVE) , SP; SAVE USR STACK POINTER AND 

LD SP,TMPSTK+32 ; SWITCH TO LOCAL STACK 

PUSH HL 

PUSH DE 

PUSH BC 

PUSH AF 

LD HL, (TIKVEC);GET CLOCK INTERRUPT RTN VECTOR 

JR DSPTCH-* ; AND JUMP TO DISPATCH POINT 



— SERIAL INPUT INTERRUPT SERVICE ROUTINE FOR SIO — 

S 10 INT: LD (S>SAVE),SP ;SAVE USER STACK POINTER AND 

LD SP,TMPSTK+32 ; SWITCH TO LOCAL STACK 

PUSH HL' 

PUSH DE 

PUSH BC 

PUSH AF 5 SAVE MACHINE STATE 

IN A, (SIODPB) ;READ SIO DATA INPUT PORT 

AND 01 11 HUB 

LD HL, (SINVEC);GET SERIAL INPUT RTN VECTOR 
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F51B 
F51A 
F51C 
F51D 
F51F 



E604 

28FA 

Fl 

D305 

C9 



>0030 
>003C 



F520 
F521 
F522 
F523 
F525 
F526 
F527 
F52B 
F52E 
F530 
F532 



F534 
F537 
F538 
F53B 
F53C 
F53E 
F540 
F541 



F54; 



E5 

D5 

C5 

CBBF 

4F 

F3 

ED7335FF 

3157FF 

DB1C 

CBFF 

D31C 



2175FF 

46 

2A73FF 

7C 

E60F 

F630 

67 

70 



CD65F5 



F545 7E 

F546 3275FF 

F549 FE20 

F54B CBFF 

F54D 2003 

F54F 3A76FF 

F552 77 

F553 2273FF 

F556 ED7B35FF 

F55A DB1C 



088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 

144 
145 
146 
147 
148 
149 
150 



AND 00000 100B ;TEST TBE STATUS BIT 

JR Z,SI0X1-* 

POP AF 

OUT <SIODPB),A ; OUTPUT DATA TO SIO 

RET 



INCLUDE CRTOUT.ASM 

* * 

* MEMORY-MAPPED CRT OUTPUT DRIVER * 

* * 

* Russell Smith 18-August-1980 * 

* * 



; 

CRTBAS EQU 
CRTTOP EQU 



CRTOUT: PUSH 
PUSH 
PUSH 
RES 
LD 
DI 
LD 
LD 
IN 
SET 
OUT 



CRTMEM.SHR.B ; START PAGEtt OF 3K CRT SPACE 
CRTMEM+3072.SHR.B ;END PAGE# OF CRT SPACE 



HL 
DE 
BC 
7, A 
C,A 

;KEEP WOLVES AWAY FOR A WHILE 
<SPSAVE),SP 

SP,TMPSTK+32 ; POINT SP TO TOP LOCAL STACK 
A, (BITDAT) 

7, A ; SELECT ROM/CRT MEMORY BANK 
(BITDAT), A 



; FIRST REMOVE THE OLD CURSOR CHARACTER FROM THE SCREEN 

LD HL,CHRSAV ;GET CHAR OVERLAYED BY CURSOR 

LD B, (HL) 

LD HL, (CURSOR); LOAD HL WITH CURSOR POINTER 

LD A,H 

AND 00001111B ; INSURANCE THAT HL CAN'T 

OR CRTBAS ;EVER POINT OUTSIDE CRT MEMORY 

LD H,A 

LD (HL),B ;RMV CURSOR BY RESTORING CHAR 

; PROCESS CHARACTER PASSED IN C 

CALL OUTCH 

;NDW STORE A NEW CURSOR CHARACTER AT THE CURSOR LOCATION 



CRT2: 



LD 
LD 

CP 
SET 

JR 
LD 
LD 
LD 

LD 
IN 



A, (HL) ;GET CHAR AT NEW CURSOR LOCAT. 
(CHRSAV),A ;SAVE FOR NEXT TIME 'CRTOUT' IS 

CALLED 
' ' ;TEST IF CHARACTER IS A SPACE 

7, A ;THEN TURN ON BIT 7 TO ENABLE 

BLINK 
NZ.CRT2-* ;JUMP IF CHARACTER IS NON-BLANK 
A, (CSRCHR) ;ELSE GET CHAR USED FOR CURSOR 
(HL),A ; STORE CHAR IN A AS CURSOR MARK 
( CURSOR ),HL; SAVE HL AS CURSOR POINTER 



SP, (SPSAVE) 
A, (BITDAT) 



(continued next page) 
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F55C 
F55E 
F560 
F561 
F562 
F563 
F564 



F565 
F568 
F569 
F56A 
F56D 
F56E 
F570 
F572 
F573 
F574 
F575 
F577 
F579 
F57A 
F57D 
F580 



F5B1 
F582 
F585 
F588 
F58B 
F5BC 
F58D 
F58E 



F58F 
F590 
F591 
F592 
F593 
F594 
F595 
F596 
F597 
F598 
F599 
F59A 
F59B 

F59C 
F59E 
F5A0 
F5A2 
F5A4 
F5A6 



CBBF 

D31C 

FB 

CI 

Dl 

El 

C9 



1178FF 

1A 

B7 

C270F6 

79 

FE20 

380F 

71 

23 

7D 

E67F 

FE50 

D8 

CDE7F5 

CD42F6 

C9 



E5 

218FF5 

010D00 

CD60F3 

El 

CO 

C5 

C9 



IF 

IE 

IB 

1A 

18 

11 

OD 

OC , 

OB 

OA 

09 

08 

07 

DCF5 
BEF5 
CCF5 
42F6 
2CF6 
C4F5 



1151 
1152 
1153 
1154 
1155 
1156 
1157 

1158 ; 

1159 ; 

1160 ; 

1161 OUTCH: 
1162 

1163 

1164 

1165 

1166 

1167 

1168 DISPLA: 

1169- 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 ; 

1178 ; 

1179 ; 

1180 CONTRL: 
1181 

1182 
1183 
1184 
1185 
1186 
1187 

1188 

1189 CTLTAB: 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 



RES 

OUT 

EI 

POP 

POP 

POP 

RET 



LD 

LD 

OR 

JP 

LD 

CP 

JR 

LD 

INC 

LD 

AND 

CP 

RET 

CALL 

CALL 

RET 



PUSH 

LD 

LD 

CALL 

POP 

RET 

PUSH 

RET 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 



7, A ; SWITCH BACK LOWER 16K OF RAM 
(BITDAT) ,A 

; INTERRUPTS ARE SAFE AGAIN 
BC 
DE 
HL 



DE, LEAD IN 

A, (DE) ;GET LEAD-IN SEQUENCE STATE 

A 

NZ,MULTI ;JUMP IF IN A LEAD-IN SEQUENCE 

A,C ; ELSE PROCESS CHARACTER IN C 

C,C0NTRL-* ;JUMP IF A CONTROL CHARACTER 



(HL),C 
HL 
A,L 

0U11111B 
80 
C 

RETURN 
LFEED 



5ELSE STORE DISPLAYABLE CHAR 
;AND ADV POINTER TO NEXT COLUMN 

; EXTRACT COLUMN* FROM HL 

;EXIT IF NOT PAST COLUMN 79 
;ELSE DO AUTOMATIC <CR> 
5 AND LINEFEED 



HL 

HL. CTLTAB ; SEARCH FOR CONTROL CHARACTER 

BCCTLSIZ/3; HANDLING SUBROUTINE IN TABLE 

SEARCH 

HL 

NZ ;EXIT IF NOT IMPLEMENTED 

BC 

;D0 SNEAKY JUMP TO PRESERVE 
REGISTERS 

'_'-64 
'■-*'-64 
' C ' -64 
'Z'-64 
'X'-64 
'Q'-64 
'M'-64 
'L'-64 
'K'-64 
' J ' -64 
' I ' -64 
'H'-64 
'G'-64 

BELL ;CTL-G IS THE BELL 

BAKSPC ;CTL-H IS CURSOR LEFT 

TAB jCTL-I IS TAB 

LFEED ;CTL-J IS CURSOR DOWN 

UPCSR ;CTL-K IS CURSOR UP 

FORSPC 5CTL-L IS CURSOR RIGHT 



F5EF 


E5 


1273 


PUSH 


HL 


F5F0 


110130 


1274 


LD 


DE,CRTMEM+1 


F5F3 


01000C 


1275 


LD 


BC, 24*128 


F5F6 


3620 


1276 


LD 


(HL),' ' 


F5FB 


EDBO 


1277 


LDIR 




F5FA 


El 


1278 


POP 


HL 


F5FB 


3E17 


1279 


LD 


A, 23 


F5FD 


3277FF 


1280 


LD 


(BASE), A 


F600 


D314 


1281 


OUT 


(SCROLL) ,A 


F602 


C9 


1282 

1283 ; 

1284 ; 


RET 




F603 


E5 


1285 CLREOL: 


PUSH 


HL 


F604 


7D 


1286 


LD 


A,L 


F605 


E67F 


1287 


AND 


OlllllilB 


F607 


4F 


1288 


LD 


C,A 


F608 


3E50 


1289 


LD 


A, 80 


F60A 


91 


1290 


SUB 


C 


F60B 


47 


1291 


LD 


B,A 


F60C 


CD66F6 


1292 


CALL 


CLR 


F60F 


El 


1293 


POP 


HL 


F610 


C9 


1294 

1295 ; 

1296 ; 


RET 




F611 


CD03F6 


1297 CLREOS: 


CALL 


CLREOL 


F614 


E5 


1298 


PUSH 


HL 


F615 


3A77FF 


1299 


LD 


A, (BASE) 


F618 


4F 


1300 


LD 


C,A 


F619 


7D 


1301 CLRS1: 


LD 


A,L 


F61A 


17 


1302 


RLA 




F61B 


7C 


1303 


LD 


A,H 


F61C 


17 


1304 


RLA 




F61D 


E61F 


1305 


AND 


00011111B 


F61F 


B9 


1306 


CP 


C 


F620 


2808 


1307 


JR 


Z.CLRS2-* 


F622 


CD37F6 


1308 


CALL 


DNCSR 


F625 


CD60F6 


1309 


CALL 


CLRLIN 


F628 


18EF 


1310 
1311 


JR 


CLRS1-* 


F62A 


El 


1312 CLRS2: 


POP 


HL 


F62B 


C9 


1313 

1314 ; 

1315 ; 


RET 




F62C 


1180FF 


1316 UPCSR: 


LD 


DE,-12B 


F62F 


19 


1317 


ADD 


HL,DE 


F630 


7C 


1318 


LD 


A,H 


F631 


FE30 


1319 


CP 


CRTBAS 


F633 


DO 


1320 


RET 


NC 


F634 


263B 


1321 


LD 


H,CRTT0P-1 


F636 


C9 


1322 

1323 ; 

1324 s 


RET 




F637 


118000 


1325 DNCSR: 


LD 


DE,128 


F63A 


19 


1326 


ADD 


HL,DE 


F63B 


7C 


1327 


LD 


A,H 


F63C 


FE3C 


1328 


CP 


CRTTOP 


F63E 


D8 


1329 


RET 


C 


F63F 


2630 


1330 


LD 


H, CRTBAS 


F641 


C9 


1331 

1332 ; 

1333 ; 

1334 5 


RET 




F642 


7D 


1335 LFEED: 


LD 


A,L 


F643 


17 


1336 


RLA 




F644 


7C 


1337 


LD 


A,H 



;FILL CRT MEMORY WITH SPACES 
; POINT TO HOME CURSOR POSITION 

;MAKE BASE LINE* BE 23 AND 



;SAVE CURSOR POINTER 



! CURSOR POINTER INTO C 
! CALCULATE HOW MANY CHARS 
; REMAIN ON CURRENT LINE 

I CLEAR REST OF LINE S> HL 



; CLEAR REMAINDER OF CURRENT ROW 



iCOPY BASE SCREEN ROW# TO C 



5 ROW* COMPONENT OF HL INTO A 

,-SEE IF HL IS AT BOTTOM ROW 

OF SCREEN 
;AND LEAVE CLEAR LOOP IF SO 
;ELSE POINT HL TO NEXT ROW DOWN 
;AND FILL THAT LINE WITH SPACES 



;RESTR ORIGINAL CURSOR POINTER 



; SUBTRACT 1 FROM ROW* COMPONENT 
; OF CURSOR POINTER IN HL 

; CHECK FOR UNDERFLOW OF POINTER 



;ADD 1 TO ROW* COMPONENT 
; OF CURSOR POINTER IN HL 

; CHECK FOR OVERFLOW OF POINTER 

; RESET POINTER MODULO 128*24 



F5AB 
F5AA 
F5AC 
F5AE 
F5B0 
F5B2 
F5B4 

>0027 



E7F5 
11F6 
03F6 
ECF5 
B6F5 
6CF6 
BAF5 



F5B6 3E01 
F5B8 12 
F5B9 C9 



F5BA 3E04 
F5BC 12 
F5BD C9 



F5BE 
F5BF 
F5C1 
F5C2 
F5C3 



F5C4 
F5C5 
F5C7 
F5C9 
F5CA 
F5CB 



F5CC 
F5CF 
F5D0 
F5D2 
F5D3 
F5D5 
F5D6 
F5D7 
F5D9 
F5DA 
F5DB 



F5DC 
F5DE 
F5E0 
F5E2 
F5E4 
F5E6 



7D 

E67F 

CB 

2B 

C9 



7D 

E67F 
FE4F 
DO 

23 
C9 



110800 

7D 

E67B 

83 

FE50 

DO 

7D 

E6F8 

6F 

19 

C9 



DB1C 
CBEF 
D31C 
CBAF 
D31C 
C9 



F5E7 7D 

F5EB E6B0 

F5EA 6F 

F5EB C9 



F5EC 210030 



1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
122B 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 



DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 

CTLBIZ EQU 



ESCAPE: 



STUFF: 



BAKSPC 



FORSPC: 



TAB: 



LD 
LD 
RET 



LD 
LD 
RET 



LD 

AND 

RET 

DEC 

RET 



LD 

AND 

CP 

RET 

INC 

RET 



LD 

LD 

AND 

ADD 

CP 

RET 

LD 

AND 

LD 

ADD 

RET 



IN 

SET 

OUT 

RES 

OUT 

RET 



LD 
AND 
LD 
RET 



CLRSCN: LD 



BELL: 



RETURN: 



RETURN 
CLREOS 
CLREOL 
CLRSCN 
ESCAPE 
HOMEUP 
STUFF 

♦-CTLTAB 



A,l 
(DE),A 



A, 4 
(DE>,A 



A,L 
01111111B 

Z 
HL 



;CTL-M IS <CR> 

;CTL-Q CLEAR TO END-QF-SCREEN 

;CTL-X IS CLEAR TO END-OF-LINE 

3CTL-Z IS CLEAR SCREEN 

;CTL-C IS ESCAPE 

jCTL-"" IS HOME UP 

;CTL- IS DISPLAY CONTROL CHARS 



;SET LEAD-IN SEQUENCE STATE 

5 FOR XY CURSOR POSITIONING MODE 



;SET LEAD-IN SEQUENCE STATE 
5 FOR CONTROL CHAR OUTPUT MODE 



; CHECK FOR LEFT MARGIN 

; ABORT IF IN LEFTMOST COLUMN 
;BACK UP CURSOR POINTER 



A,L 5 CHECK FOR RIGHTMOST COLUNM 

01111111B 

79 

NC ;D0 NOTHING IF ALREADY THERE 

HL 

;ELSE ADVANCE CURSOR POINTER 



;TABS ARE EVERY B COLUMNS 
5 GET COLUMN COMPONENT OF 
: PREVIOUS TAB POSITION 



;EXIT IF NEXT TAB COLUMN WOULD 
: BE PAST THE RIGHT MARGIN 



DE,8 

A,L 

OU11000B 

A,E 

BO 

NC 

A,L 

11111000B ;ELSE INCREMENT THE CURSOR 

L,A ; POINTER FOR REAL 

HL.DE 



A, (BITDAT) 

5, A ; TOGGLE BIT 5 OF SYSTEM PIO TO 
(BITDAT), A ; TRIGGER BELL HARDWARE TO SOUND 



5. A 
(BITDAT), A 



A,L 

10000000B 

L,A ;MOVE CURSOR POINTER BACK 
; TO START OF LINE 



HL,CRTMEM 
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F645 
F646 
F64S 
F649 
F64C 
F64F 
F650 

F651 
F652 
F655 
F656 
F657 
F659 
F65C 
F65E 
F65F 



F660 
F661 
F663 
F664 
F666 

F66B 
F669 
F66B 



F66C 
F66E 



F670 
F671 
F673 
F674 
F676 
F67B 
F679 
F67B 
F67C 
F67E 
F67F 

F6B0 
F6B2 
F6B4 
F6B6 
F687 
F68A 
F6BB 
F6BD 
F6BF 
F691 
F693 
F695 
F696 
F69B 
F69A 
F69C 

F69D 
F69F 



17 

E61F 

4F 

CD37F6 

3A77FF 

B9 

CO 

E5 

CD60F6 

29 

7C 

E61F 

3277FF 

D314 

El 

C9 



7D 

E6B0 

6F 

0650 

3620 



10FB 
C9 



0E20 
1817 



EB 

3600 

EB 

FE01 

200B 

79 

FE3D 

CO 

3E02 

12 

C9 

FE02 

2019 

3E03 

12 

3A77FF 

81 

D61F 

D618 

30FC 

C618 

F660 

67 

2E00 

CB3C 

CB1D 

C9 

FE03 
200C 



1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 

1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
13B1 
13B2 
1383 
1384 
13B5 
13B6 
1387 
1388 
13B9 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 



CLRLIN: 



CLR: 



HOMEUP: 

5 

MULT I: 

SETXY: 

M2TST: 

SETROW: 
SETR2: 



M3TST: 



RLA 

AND 

LD 

CALL 

LD 

CP 

RET 

PUSH 

CALL 

ADD 

LD 

AND 

LD 

OUT 

POP 

RET 



LD 

AND 

LD 

LD 

LD 

INC 

DJNZ 

RET 



LD 
JR 



EX 

LD 

EX 

CP 

JR 

LD 

CP 

RET 

LD 

LD 

RET 

CP 

JR 

LD 

LD 

LD 

ADD 

SUB 

SUB 

JR 

ADD 

OR 

LD 

LD 

SRL 

RR 

RET 

CP 
JR 



; EXTRACT ROW# COMPONENT OF HL 

;COPY ROW# TO C FOR SCROLL TEST 
;MOVE CURSOR TO NEXT ROW DOWN 
;TEST IF CURSOR ON BOTTOM ROW 
;0F SCREEN BEFORE MOVING DOWN 
;EXIT IF NOT AT BOTTOM 

;ELSE PREP TO SCROLL SCREEN UP 
;FILL NEW BOTTOM LINE WTH SPACES 

;GET ROW# PART OF HL INTO A 



0001 HUB 

C,A 

DNCSR 

A, (BASE) 

C 

NZ 

HL 

CLRLIN 

HL,HL 

A,H 

0001 HUB 

(BASE), A ; STORE NEW BASE LINE* 

(SCROLL), A ;SCROLL UP NEW BLANK BOTTM LINE 

HL 



A,L 

10000000B ; POINT HL TO 1ST COLUMN OF ROW 

L,A 

B,BO 

(HL),' ' ; STORE ASCII SPACES AT ADDR 

IN HL 
HL ;AND INCREMENT HL 

CLR-* ; REPEAT NUMBER OF TIMES IN B 



C,' ' ;FAKE-OUT CURSOR ADDR ROUTINE 
SETROW-* ;T0 DO HOMEUP ALMOST FOR FREE 



UNCONDITIONALLY RESET LEAD-IN 
; STATE TO ZERO BEFORE GOING ON 



DE,HL 
(HL) ,0 
DE,HL 
1 

NZ,M2TST-* 
A,C ;GET SECOND CHAR OF SEQUENCE 



NZ 
A, 2 
(DE),A 



; ABORT SEQUENCE IF NOT '=' 
;MAKE LEADIN=2 NEXT TIME 



;MAKE LEADIN=3 NEXT TIME 

; ARRIVE HERE ON THIRD CHAR 

; OF ESC, '=',ROW,COL SEQUENCE 



NZ,M3TST-* 
A, 3 
(DE),A 
A, (BASE) 
A,C 
' '-1 
24 

NC,SETR2-* ; VERIFY ROW* BETWEEN O AND 23 
A, 24 

CRTMEM.SHR.7 $ MERGE IN MSB'S OF CRT MEMORY 
H,A 
L,0 
H 
L 



NZ,M4TST-* 
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F6A1 
F6A2 
F6A4 
F6A6 
F6A8 
F6AA 
F6AB 
F6AC 



79 

D620 

D650 

30FC 

C650 

B5 

6F 

C9 



F6AD CD72F5 
F6B0 C9 



>0010 
>0010 
>0Oll 
>0012 
>0013 

>0088 
>00A8 
>001C 
>00D0 
>000C 
>0004 

>00C9 
>0066 



F6B1 
F6B2 
F6B4 
F6B5 
F6B8 
F6BA 
F6BB 
F6BD 
F6BE 
F6C0 



79 

FE04 

DO 

CDB8F7 

DB1C 

47 

E6F8 

Bl 

D31C 

CDAEF7 



1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 



SETCOL: LD 
SUB 

SETC2: SUB 
JR 
ADD 
OR 
LD 
RET 



A,C 



BO 



; ARRIVE HERE ON FOURTH CHAR 
;0F ESC,'=',ROW,COL SEQUENCE 



NCSETC2-* :MAKE SURE COL* BETWEEN «< 79 

A, 80 

L ; MERGE IN COL# WITH L 

L,A 



M4TST: 



CALL 
RET 



DISPLA 



; DISPLAY THE CONTROL CHAR 
; PASSED IN C 



INCLUDE DISK 10. ASM 
******************************************************** 

* * 

* DISK INPUT/OUTPUT DRIVER SUBROUTINE PACKAGE * 

* FOR WESTERN DIGITAL 1771 DISK CONTROLLER * 

* * 

* bullet-proo-f error recovery added 12-APR-BO * 

* * 
******************************************************** 



EQUATES FOR DISK CONTROLLER PORTS AND COMMAND CODES 



STSREG 
CMDREG 
TRKREG 
SECREG 
DATREG 

RDCMD 

WRTCMD 

SKCMD 

FINCMD 

RSTCMD 

HLOAD 

RET 
NMIVEC 



; 
; 

SELECT: 



EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 



WD1771+0 
WD1771+0 
WD1771+1 
WD1771+2 
WD1771+3 

10001000B 
10101000B 
00011100B 
11010000B 
00001 100B 
00000 100B 

0C9H 
0066H 



STATUS REGISTER 
COMMAND REGISTER 
TRACK REGISTER 
SECTOR REGISTER 
;DATA REGISTER. 

;READ COMMAND 
5 WRITE COMMAND 

SEEK COMMAND 

FORCE INTR COMMAND 

RESTORE COMMAND 

RD/WRT HEAD LOAD ENABLE 

SUBROUTINE RETURN INSTR OPCODE 
THE NON-MASKABLE INTERRUPT IS 
USED FOR DATA SYNC BETWEEN 
THE Z-80 AND 1771 



> GET UNIT* PASSED IN C AND 
; CHECK FOR MAXIMUM VALID* 
; ERROR IF NUMBER > 3 
;MAKE SURE DISKS ARE TURNED ON 

;SAVE CURRENT DRIVE SELECT DATA 
; MERGE IN NEW DRIVE UNIT* IN C 
; IN PLACE OF THE CURRENT ONE 
(BITDAT), A ;T0 SELECT THE NEW DISK DRIVE 
;TEST NEW DRIVE'S READY STATUS 



LD 


A,C 


CP 


4 


RET 


NC 


CALL 


TURNON 


IN 


A, (BITDAT) 


LD 


B,A 


AND 


11111000B 


OR 


C 


OUT 


(BITDAT), A 


CALL 


FORCE 



F71F 


CDABF7 


1524 WRITE: 


CALL 


READY 


F722 


CO 


1525 


RET 


NZ 


F723 


CB77 


1526 


BIT 


6, A 


F725 


CO 


1527 


RET 


NZ 


F726 


06A8 


1528 


LD 


B, WRTCMD 


F728 


1806 


1529 
1530 


JR 


RDWRT-* 


F72A 


CDABF7 


1531 READ: 


CALL 


READY 


F72D 


CO 


1532 


RET 


NZ 


F72E 


0688 


1533 


LD 


B, RDCMD 


F730 


227 IFF 


1534 RDWRT: 


LD 


(IOPTR) ,HL 


F733 


216EFF 


1535 


LD 


HL, SECTOR 


F736 


71 


1536 


LD 


(HL),C 


F737 


23 


1537 


INC 


HL 


F738 


70 


1538 


LD 


(HL),B 


F739 


23 


1539 


INC 


HL 


F73A 


3602 


1540 


LD 


(HL>,2 


F73C 


F3 


1541 RW1: 


DI 




F73D 


216600 


1542 


LD 


HL, NMIVEC 


F740 


56 


1543 


LD 


D, (HL) 


F741 


36C9 


1544 


LD 


(HL).RET 


F743 


216BFF 


1545 


LD 


HL,RECLEN 


F746 


46 


1546 


LD 


B, (HL) 


F747 


0E13 


1547 


LD 


C, DATREG 


F749 


2A71FF 


1548 


LD 


HL, (IOPTR) 


F74C 


3A6EFF 


1549 


LD 


A, (SECTOR) 


F74F 


D312 


1550 


OUT 


(SECREG), A 


F751 


CDAEF7 


1551 


CALL 


FORCE 


F754 


CB6F 


1552 


BIT 


5, A 


F756 


3A6FFF 


1553 


LD 


A, (CMDTYP) 


F759 


2002 


1554 


JR 


NZ,RW2-* 


F75B 


F604 


1555 


OR 


HLOAD 


F75D 


CDA3F7 


1556 RW2: 


CALL 


CMDOUT 


F760 


CB6F 


1557 


BIT 


5, A 


F762 


200D 


1558 


JR 


NZ, WLOOP-* 


F764 


76 


1559 RLOOP: 


HALT 




F765 


EDA2 


1560 


INI 




F767 


C264F7 


1561 


JP 


NZ, RLOOP 


F76A 


CD9CF7 


1562 


CALL 


BUSY 


F76D 


E69C 


1563 


AND 


10011100B 


F76F 


180B 


1564 
1565 


JR 


RW3-* 


F771 


76 


1566 WLOOP: 


HALT 




F772 


EDA3 


1567 


OUT I 




F774 


C271F7 


1568 


JP 


NZ, WLOOP 


F777 


CD9CF7 


1569 


CALL 


BUSY 


F77A 


E6BC 


1570 


AND 


10111100B 


F77C 


216600 


1571 RW3: 


LD 


HL, NMIVEC 


F77F 


72 


1572 


LD 


(HL),D 


F780 


FB 


1573 


EI 




F7B1 


CB 


1574 


RET 


Z 


F782 


2170FF 


1575 


LD 


HL, RETRY 


F785 


35 


1576 


DEC 


(HL) 


F7B6 


2002 


1577 


JR 


NZ.RW4-* 


F788 


B7 


1578 


OR 


A 


F789 


C9 


1579 
1580 


RET 




F7BA 


216DFF 


1581 RW4: 


LD 


HL, TRACK 


F7BD 


4E 


1582 


LD 


C, (HL) 


F7BE 


CDFBF6 


1583 


CALL 


SEEK 


F791 


18A9 


1584 

1585 ; 

1586 ; 

1587 ; 


JR 


RW1-* 



; CLEAR THE DISK CONTROLLER 
;EXIT IF DRIVE NOT READY 

;EXIT IF DISK WRITE-PROTECTED 



; CLEAR DISK CONTROLLER 
5 EXIT IF DRIVE NOT READY 

; STORE DISK I/O DATA POINTER 

; STORE SECTOR* FOR READ/ WRITE 

;SAVE READ/WRITE COMMAND BYTE 

;SET DISK RE-TRY COUNT 
;N0 INTERRUPTS DURING DISK I/O 
;SAVE BYTE AT NMI VECTOR LOCAT 
;IN D FOR DURATION OF READ/WRIT 
;LOOP AND REPLACE IT WITH A RET 

;B=NUMBER OF BYTES/SECTOR 

;C=1771 DATA REGISTER PORT* 

;HL=DISK R/W DATA POINTER 

;GET SECTOR NUMBER 

; OUTPUT SECTOR* TO 1771 

; ISSUE FORCE INTERRUPT COMMAND 

;T0 TEST HEAD LOAD STATUS 

;GET READ OR WRITE COMMAND BYTE 

;JUMP IF HEAD IS ALREADY LOADED 

;ELSE MERGE IN HLD BIT 

; START 1771 DOING IT'S THING 

;TEST IF COMMAND IS A R OR W 

j AND JUMP TO THE CORRECT LOOP 



;LOOP UNTIL 1771 COMES UN-BUSY 
;MASK OFF TO READY, NOT FOUND, CRC 
;AND LOST DATA STATUS BITS 



;MASK OFF AS ABOVE + WRT FAULT 

; RESTORE BYTE S> NMI VECTOR 

; RETURN IF NO DISK I/O ERRORS 

; DECREMENT RE-TRY COUNT AND 

; EXECUTE COMAND AGAIN IF NOT=0 

;ELSE RETURN 1771 ERROR STATUS 



;GET TRACK* FOR THIS OPERATION 
;TRY TO RE-CAILBRATE THE HEAD 
: BEFORE READ OR WRITE AGAIN 



F6C3 


2806 


1460 


JR 


Z,SEL2-* 


F6C5 


78 


1461 


LD 


A,B 


F6C6 


D31C 


1462 


OUT 


<BITDAT),A 


F6CB 


3E80 


1463 


LD 


A, 10000000 


F6CA 


C9 


1464 
,1465 


RET 




F6CB 


2165FF 


1466 SEL2: 


LD 


HL.UNIT 


F6CE 


7E 


1467 


LD 


A, (HL) 


F6CF 


71 


1468 


LD 


(HL),C 


F6D0 


FEFF 


1469 


CP 


255 


F6D2 


2806 


1470 


JR 


Z,SEL3-* 


F6D4 


23 


1471 


INC 


HL 


F6D5 


85 


1472 


ADD 


A,L 


F6D6 


6F 


1473 


LD 


L,A 


F6D7 


DB11 


1474 


IN 


A, (TRKREG) 


F6D9 


77 


1475 


LD 


(HL),A 


F6DA 


2166FF 


1476 SEL3: 


LD 


HL,TRKTAB 


F6DD 


7D 


1477 


LD 


A,L 


F6DE 


81 


1478 


ADD 


A,C 


F6DF 


6F 


1479 


LD 


L,A 


F6E0 


7E 


1480 


LD 


A, (HL) 


F6E1 


FEFF 


1481 


CP 


255 


F6E3 


2804 


1482 


JR 


Z,HOME-* 


F6E5 


D311 


1483 


OUT 


< TRKREG), A 


F6E7 


AF 


1484 


XOR 


A 


F6E8 


C9 


1485 

1486 5 

1487 ; 

1488 ; 


RET 




F6E9 


CDABF7 


1489 HOME: 


CALL 


READY 


F6EC 


CO 


1490 


RET 


NZ 


F6ED 


AF 


1491 


XOR 


A 


F6EE 


326DFF 


1492 


LD 


(TRACK) ,A 


F6F1 


060C 


1493 RESTOR: 


LD 


B,RSTCMD 


F6F3 


CD93F7 


1494 


CALL 


STEP 


F6F6 


EE04 


1495 


XOR 


00000 100B 


F6F8 


E69C 


1496 


AND 


10011100B 


F6FA 


C9 


1497 

1498 5 

1499 s 

1500 j 


RET 




F6FB 


CDABF7 


1501 SEEK: 


CALL 


READY 


F6FE 


CO 


1502 


RET 


NZ 


F6FF 


79 


1503 


LD 


A,C 


F700 


FE4D 


1504 


CP 


77 


F702 


DO 


1505 


RET 


NC 


F703 


326DFF 


1506 


LD 


(TRACK) ,A 


F706 


D313 


1507 


OUT 


(DATREG) ,A 


F70B 


061C 


1508 


LD 


B,SKCMD 


F70A 


CD93F7 


1509 


CALL 


STEP 


F70D 


E69B 


1510 


AND 


10011000B 


F70F 


C8 


1511 
1512 


RET 


Z 


F710 


CDF1F6 


1513 


CALL 


RESTOR 


F713 


CO 


1514 


RET 


NZ 


F714 


79 


1515 


LD 


A,C 


F715 


D313 


1516 


OUT 


(DATREG), A 


F717 


061C 


1517 


LD 


B,SKCMD 


F719 


CD93F7 


1518 


CALL 


STEP 


F71C 


E69B 


1519 


AND 


10011000B 


F71E 


C9 


1520 

1521 ; 

1522 ; 

1523 : 


RET 





;AND CONTINUE IF ITS READY 
(BITDAT),A ;ELSE PUT BACK OLD DRIVE SELECT 



; POINT HL TO DRIVE SELECT DATA 
;LOAD A WITH CURRENT UNIT# 
;AND STORE NEW UNIT* FROM C 
;TEST IF NO DRIVE SELECTED 
;YET 8< SKIP NEXT SEGMENT IF SO 
; POINT TO HEAD POSITION TABLE 
;AND ADD IN NEW UNIT# AS INDEX 

;GET CURRENT HEAD POSITION 
;AND STORE IN TABLE 3 HL 



; INDEX INTO TABLE TO GET 
;HEAD POSITION OF NEW DRIVE 

;TEST IF NEW DRIVE WAS EVER 
; SELECTED AND DO A HOME IF NOT 
; OUTPUT DRIVE'S CURRENT HEAD 
; POSITION TO THE TRACK REGISTER 



; CLEAR DISK CONTROLLER 
;EXIT IF DRIVE NOT READY 

;SET TRACK* IN MEM TO ZERO 
;LOAD B WITH A RESTORE COMMAND 
; EXECUTE HEAD MOVING OPERATION 
;6ET TRUE TRACK STATUS 
SMASK TO ERROR BITS 
; RETURN 1771 STATUS IN A 



CLEAR DISK CONTROLLER 
EXIT IF DRIVE NOT READY 
GET TRACK* DATA FROM C AND 
CHECK FOR MAXIMUM VALID* 
FORGET IT IF TRACK* > 76 
ELSE STORE TRACK* FOR SEEK 
OUTPUT TRACK * TO 1771 
3 LOAD B WITH A SEEK COMMAND AND 
;G0 SEEK WITH PROPER STEP RATE 
;MASK TO READY, SEEK & CRC ERROR 
;BITS AND RETURN IF ALL GOOD 

;ELSE TRY TO RE-CAILBRATE HEAD 
; ERROR IF WE CAN'T FIND TRACK 



;TRY TO SEEK THE TRACK AGAIN 
; RETURN FINAL SEEK STATUS IN A 



<J1 
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F793 


3A6AFF 


158B STEP: 


LD 


A, (SPEED) 


F796 


E603 


1589 




AND 


0000001 IB 


F798 


BO 


1590 




OR 


B 


F799 


CDA3F7 


1591 




CALL 


CMDOUT 


F79C 


DB10 


1592 BUSY: 


IN 


A, (STSREG) 


F79E 


CB47 


1593 




BIT 


0,A 


F7A0 


20FA 


1594 




JR 


NZ,BUSY-* 


F7A2 


C9 


1595 
1596 
1597 

1598 




RET 




F7A3 


D310 


1599 CMDOUT: 


OUT 


<CMDREG),A 


F7A5 


CDABF7 


1600 




CALL 


PAUSE 


F7A8 


E3 


1601 PAUSE: 


EX 


(SP),HL 


F7A9 


E3 


1602 




EX 


(SP),HL 


F7AA 


C9 


1603 
1604 
1605 
1606 




RET 




F7AB 


CDBBF7 


1607 READY: 


CALL 


TURNON 


F7AE 


3ED0 


1608 FORCE: 


LD 


A,FINCMD 


F7B0 


CDA3F7 


1609 




CALL 


CMDOUT 


F7B3 


DB10 


1610 




IN 


A, (STSREG) 


F7B5 


CB7F 


1611 




BIT 


7, A 


F7B7 


C9 


1612 
1613 
1614 
1615 


■ 


RET 




F7B8 


3E1E 


1616 TURNON: 


LD 


A, 30 


F7BA 


326CFF 


1617 




LD 


(MOTOR), A 


F7BD 


CDABF7 


1618 




CALL 


PAUSE 


F7C0 


DB1C 


1619 




IN 


A, (BITDAT) 


F7C2 


CB57 


1620 




BIT 


2, A 


F7C4 


C8 


1621 




RET 


Z 


F7C5 


E6BB 


1622 




AND 


10111011B 


F7C7 


D31C 


1623 




OUT 


(BITDAT), A 


F7C9 


C5 


1624 




PUSH 


BC 


F7CA 


0600 


1625 




LD 


B,0 


F7CC 


CDDCF7 


1626 TURN2: 


CALL 


WAIT 


F7CF 


2802 


1627 




JR 


Z,TURN3-* 


F7D1 


10F9 


1628 




DJNZ 


TURN2-* 


F7D3 


0609 


1629 TURN3: 


LD 


B,9 


F7D5 


CDDCF7 


1630 TURN4: 


CALL 


WAIT 


F7DB 


10FB 


1631 




DJNZ 


TURN4-* 


F7DA 


CI 


1632 




POP 


BC 


F7DB 


C9 


1633 
1634 
1635 




RET 




F7DC 


DB1B 


1636 WAIT: 


IN 


A, (CTC3) 


F7DE 


4F 


1637 




LD 


C,A 


F7DF 


DB1B 


1638 WAIT2: 


IN 


A, (CTC3) 


F7E1 


B9 


1639 




CP 


C 


F7E2 


28FB 


1640 




JR 


Z.WAIT2-* 


F7E4 


18CB 


1641 
1642 
1643 
1644 
1645 
1646 




JR 


FORCE-* 


F7E6 


0000 


1647 ROMEND: 


DEFW 









1648 








>FFOO 




1649 




ORG 


RAM 






1650 




INCLUDE 


MEMORY. ASM 



;GET STEP SPEED VARIABLE 

; MERGE WTH SEEK/HOME COMND IN B 
; OUTPUT COMMAND AND DELAY 

;TEST BUSY BIT FROM 

; 1771 AND LOOP TILL=0 



<CMDREG),A ; OUTPUT A COMMAND TO THE 1771 
; WASTE 44 MICROSECONDS 



;KEEP THOSE DISKS SPINING FOLKS 
; ISSUE FORCE INTERRUPT COMMAND 

;READ STATUS REGISTER CONTENTS 
;TEST DRIVE NOT READY BIT 



{RE-LOAD MOTOR TURN-OFF TIMER 



;TEST IF MOTORS HAVE STOPPED 
;AND EXIT IF STILL TURNED ON 
;ELSE RE-ENABLE DRIVE SELECTS 
5 AND ACTIVATE THE MOTOR RELAY 

; SET READY LOOP MAX TIMEOUT 
;WAIT 1/93 SECOND it TEST READY 
5 EXIT LOOP IF DRIVE READY 
;ELSE TRY AGAIN UP TO 256 TIMES 

;GIVE ABT 1/10 SEC MORE DELAY 



;GET CURRENT CTC3 COUNT VALUE 



;SEE IF CTC3 CHANGED BY 1 COUNT 
5 AND LOOP UNTIL IT CHANGES 
;THEN TEST DRIVE READY STATUS 



;TAIL OF FREE MEM LINKED LIST 



(continued next page) 
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I 



Micro Cornucopia, Number 2, September 1981 

PFM Monitor Listing (continued) 



>FFOO 
>FFOO 
>FF10 
>FF18 

>FF1C 



>FF20 
>FF30 
>FF31 
>FF32 
>FF33 



>FF35 
>FF37 



>FF57 
>FF59 
>FF5B 



>FF5D 
>FF5F 
>FF60 
>FF61 
>FF62 
>FF63 
>FF64 



>FF65 
>FF66 
>FF6A 
>FF6B 
>FF6C 
>FF6D 
>FF6E 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 



* * 

* STORAGE ALLOCATION FOR 256 BYTE SCRATCH RAM * 

* * 



VECTAB EQU 

SIOVEC: DEFS 

CTCVEC: DEFS 

SYSVEC: DEFS 



* 

16 
8 
4 



; INTERRUPT VECTOR TABLE STARTS 
5 SPACE FOR 8 VECTORS FOR SIO 
4 VECTORS FOR CTC 
2 VECTORS FOR SYSTEM 



1663 GENVEC: DEFS 



; SPACE FOR 
; SPACE FOR 

PIO 
; SPACE FOR 



2 VECTORS FOR 



GENERAL PIO 



1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 



5 

; KEYBOARD DATA INPUT FIFO VARIABLES 



FIFO: 

FIFCNT: 

FIFINs 

FIFOUT: 

LOCK: 



DEFS 
DEFS 
DEFS 
DEFS 
DEFS 



16 
1 
1 
1 



; CONSOLE INPUT FIFO 

;FIFO DATA COUNTER 

5FIFI INPUT POINTER 

;FIFO OUTPUT POINTER 

5 SHIFT LOCK CHAR+FLAG BYTE 



5 STACK POINTER SAVE AND LOCAL STACK FOR INTERRUPT ROUTINES 



SPSAVE: DEFS 
TMPSTK: DEFS 



2 
32 



;USER STACK POINTER SAVE AREA 
; LOCAL STACK FOR INTERRUPTS 



SOFTWARE' VECTORS FOR INTERRUPT SERVICE ROUTINES 



TIKVEC: DEFS 2 
PINVEC: DEFS 2 
SINVEC: DEFS 2 



;1 SEC INTERRUPT ROUTINE VECTOR 
; PARALLEL CONSOLE INPUT VECTOR 
; SERIAL CONSOLE INPUT VECTOR 



i CLOCK-TIMER INTERRUPT VARIABLES 



TIKCNT: DEFS 



DAY: 

MONTH: 

YEAR: 

HRS: 

MINS: 

SECS: 



DEFS 
DEFS 
DEFS 
DEFS 
DEFS 
DEFS 



;DISK I/O DRIVER VARIABLES 



UNIT: DEFS 

TRKTAB: DEFS 

SPEED: DEFS 

RECLEN: DEFS 

MOTOR: DEFS 

TRACK: DEFS 

SECTOR: DEFS 



BINARY CLOCK TICK COUNTER 
CALENDAR DAY 
MONTH 
YEAR 
CLOCK HOURS REGISTER 

MINUTES RETISTER 
SECONDS REGISTER 



; CURRENTLY SELECTED DISK# 
;4 DRIVE HEAD POSITION TABLE 
;SEEK SPEED FOR 1771 COMMANDS 
; SECTOR RECORD LENGTH VARIABLE 
; DRIVE MOTOR TURN-OFF TIMER 



>FF6F 
>FF70 
>FF71 



>FF73 
>FF75 
>FF76 
>FF77 

>FF7B 



>FF79 



>FF7A 



>FF7C 
>FF7E 
>FF80 
>FF82 
>FF84 
>FF85 
>FFB6 
>FFB8 



ERRORS=0000 



1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 



CMDTYP: DEFS 1 
RETRY: DEFS 1 
IOPTR: DEFS 2 



; COMMAND BYTE FOR READS/WRITES 
;DISK OPERATION RE-TRY COUNT 
5 DISK I/O BUFFER POINTER 



CRT OUTPUT DRIVER VARIABLES 



CURSOR: DEFS 

CHRSAV: DEFS 

CSRCHR: DEFS 

BASE: DEFS 



1720 LEADIN: DEFS 



; CURSOR POINTER 

;CHAR OVERLAYED BY CURSOR 

;CHAR USED FOR A CURSOR 

; CURRENT CONTENTS OF SCROLL 

REGISTER 
; STATE OF LEAD-IN SEQUENCE 

HANDLER 



1721 
1722 
1723 
1724 
1725 

1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 



;NULL PAD COUNT FOR SERIAL OUTPUT DELAY 



NULLS: DEFS 



;# OF NULLS SENT AFTER CONTROL 
CHARS. 



;LISTHEAD POINTER FOR DYNAMIC MEMORY ALLOCATION SCHEME 
FREPTR: DEFS 2 



; CONSOLE MONITOR PROGRAM VARIABLES 



PARAM1: 

PARAM2: 

PARAM3: 

PARAM4: 

ESCFLG: 

COFLAG: 

LAST: 

LINBUF: 



DEFS 
DEFS 
DEFS 
DEFS 
DEFS 
DEFS 
DEFS 
DEFS 



END 



2 
2 
2 
2 
1 
1 
2 
64 



5 STORAGE FOR NUMBERS READ 
;FROM LINE INPUT BUFFER 
;BY 'PARAMS' SUBROUTINE 

; CONSOLE ESCAPE FLAG 
; CONSOLE OUTPUT TOGGLE 
;LAST ADDRESS USED BY 'MEMDMP' 
; CONSOLE LINE INPUT BUFFER 



end 



T3 

o 

2D ^ 



SUBSCRIPTION FORM 

(It's OK to brag!) 






□ I own a big board (Hooray!) 

□ I don't own a Big Board but am very interested (There's hope) 



EXPERTISE 

Guru =5 Novice=0 



INTEREST 

Fanatic=5 None=0 



□ 
□ 
□ 
□ 
□ 
□ 



□ 
□ 
□ 
□ 
□ 
□ 



What are your hardware/software needs now? 



In the near future? . 



Software Systems 
Software Applications 
Languages 1 

2 

3 

Hardware 

Are you willing to be a resource in the areas where 
your expertise is 4 or 5? 

love to D 

probably □ 

maybe □ 

noD 

How are you using the Big Board? 

Home System □ 
Business System □ 

, Software Development D 

OEMD 

Education □ 
Other □ 

What kinds of information do you need right now? 

If you get the idea that this document is as interested 

in enlisting your aid and ideas as it is in getting a sub- 

scription, you're right. Lots of people are willing to 

subscribe, lots of people have ideas - and we'd like to 

' encourage lots of people (especially you) to take an 

hour or two and put ideas and needs and accomplish- 

ments down on paper or disk. Then we can pass them 

along to others and that's what this journal is all about. 

Send me six issues (1 yr.) of MICRO CORNUCOPIA. I understand that I can cancel at any time and receive a refund 
for the balance of the subscription. (Issue #1 was published in August 1981.) 



What kind of exciting adventure (misadventure) are 
you working on? 



U.S. 

□ $16.00 

□ $20.00 (1st class mail) 
D Back issues, Specify #s 

$3.00 each 

NAME 



Canada & Mexico 

□ $20.00 (U.S. funds) 
D Back issues, Specify #s . 
$3.00 each (U.S. funds) 



Other Foreign 

□ $26.00 (U.S. funds) 

□ Back issues, Specify #s . 
$3.00 each (U.S. funds) 



PHONE (?) 



ADDRESS 



CITY 



STATE 



ZIP 



L 



□ Renewal 



MICRO CORNUCOPIA • 11740 N.W. West Rd • Portland, Oregon • 97229 



OBDERFEH 



US,CAN,MEX Other Foreign 

USER'S DISK #1 . . . $15.00 $20.00 

Over 200K of software especially for the Big Board. 
Including: 

1-Two fast disk copiers. 

2-The manual for Small C+ . 

3-A Z80 assembler. 

4-Two disk formatters. 

5-Othello. • 

6- A serial print routine. 

7-Modem software. 

8-Documentation for all the above. 
See issue #3, page 15 for more information about the disk. 
Also see "Using Modem7" in the same issue for information 
about configuring the modem software. 

USER'S DISK #2 $15.00 $20.00 

Especially for folks with single-drive systems and those who 
want to try their hand at extending an assembler. Also a new 
CBIOS with parallel printer interface. Returns to default drive 
on reboot, stifles head banging, supports CP/M 2.2 and 1.4. 
Step by step instructions for the simple incorporation into 
your CP/M (using only DDT and SYSGEN). CBIOS source 
also included. 
Including: 

1-Two single-disk copy programs, both with source. 

2-The source of the Crowe Assembler. 

3 -New Crowe . com file with larger symbol table . 

4-New CBIOS for CP/M 1.4 and 2.2 (& boot). 

5-Disk mapper with source. 

6-Documentation for all the above. 

Screen Editor in Small C $39.00 $44.00 

A simple'buf full-function screen text editor plus a text format- 
ter, all written in Small C by Edward Ream. This package in- 
cludes the editor and formatter .COM files setup for the Big 
Board, Small C itself, and source code for all. With the docu- 
mentation this is over 400K on a flippy disk. Edward is selling 
this package for $50, you can buy it from us for $39 (and Ed 
gets a royalty). Where else can you get an editor, a formatter, a 
C compiler, and source for all for under $40? 



US,CAN,MEX Other Foreign 

FORTH IN ROM $65.00 $70.00 

in fast ROM $80.00 $85.00 

Now, what you've all been waiting for— FORTH in ROM. 
This is standard FIG FORTH in three 2716's. FIG FORTH is 
standalone FORTH so you don't use CP/M at all. If you have 
disks, FIG FORTH handles the disk I/O. If not, you can still 
enjoy a most fascinating language. A simple FORTH line edi- 
tor and a decompiler are available on disk. 
FORTH editor & decompiler disk $15.00 $20.00 

TINY BASIC IN ROM $35.00 $40.00 

This two-ROM set takes control of the system just like FORTH 
does, handling its own I/O, loading Basic programs and object 
code routines on and off the disk or out of the third ROM. This 
little Basic is great for controller and utility applications. 

MORE ROMS 

Fast monitor ROMs for speed freaks and our famous 'better 
than Texas' character ROM for screen freaks. 

Fast Monitor ROM $25.00 $30.00 

Version 2.2 Character ROM $25.00 $30.00 

• Send Big Board number with monitor ROM orders. 

• Monitor & char. ROMs $5.00 each if you send a fast ROM 
and a stamped, self-addressed return envelope. 

BACK ISSUES(each) 1 . . $ 3.00 $ 5.00 

• Because of the demand from new subscribers (bless their 
hearts) we are keeping back issues in print. 



ISSUE #1 
Power Supply 
RAM Protection 
Video Wiggle 
1/2PFM.PRN 
Plus More (16 pgs) 

ISSUE #4 

Keyboard Translation 
More 4 MHz Mods 
Modems, Lync & SIOs 
Undoing the CP/M ERASE 
Plus More (20 pgs) 



ISSUE #2 
Parallel Print 
Drive Motor Cont. 
Shugart Jumpers 
1/2PFM.PRN 
Plus More (16 pgs) 



ISSUE #3 
Four MHz Mods 
Configuring Modem 7 
Safer Formatter^ 
Reverse Video Cursor 
Plus More (16 pgs) 

ISSUE #5 

Word Processing at Micro C 

Two Great Spells 

Two Text Editors 

Scribble, a Formatter 

Plus More (20 pgs) 



FREE 

Your choice of either user's disk or the deluxe character 
ROM free if you send an article or software and a ROM 
or extra disk. 



QUANTITY 


DESCRIPTION 


PRICE EACH 


TOTAL 










































Prices include media, package & 1st class postage (air mail for Other Foreign) 

MAMF 


TOTAL 
ENCLOSED 





ADDRESS . 
CITY 



STATE. 



ZIP. 



U.S. funds only, please 

Make checks payable to: 
MICRO CORNUCOPIA 



MICRO CORNUCOPIA • 11740 N.W. WestRd • Portland, Oregon • 97229 



J 



